home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Community / Media / US Magazine Index / APC 87⁄89 Mindex / background_2780.txt < prev    next >
Text File  |  1989-09-07  |  5KB  |  261 lines
  1. -- background: 2780 from stack: in
  2. -- bmap block id: 3125
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the number of this card into field "Number Series"
  9.   pass openCard
  10. end openCard
  11. on openBackground
  12.   push recent card
  13. end openBackground
  14.  
  15.  
  16. -- part 2 (field)
  17. -- low flags: 01
  18. -- high flags: 0004
  19. -- rect: left=16 top=80 right=99 bottom=57
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 0 / 0
  22. -- text alignment: 1
  23. -- font id: 23
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Number Series
  28.  
  29.  
  30. -- part 7 (button)
  31. -- low flags: 00
  32. -- high flags: 8003
  33. -- rect: left=440 top=164 right=185 bottom=489
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: Prev
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   visual effect wipe right
  45.   go to previous card
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 8 (button)
  51. -- low flags: 00
  52. -- high flags: 8003
  53. -- rect: left=439 top=136 right=157 bottom=489
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Next
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   visual effect wipe left
  65.   go to next card
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 11 (button)
  71. -- low flags: 00
  72. -- high flags: 8003
  73. -- rect: left=424 top=248 right=269 bottom=505
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Show All
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   show all cards
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 6 (field)
  90. -- low flags: 00
  91. -- high flags: 0004
  92. -- rect: left=328 top=280 right=297 bottom=411
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 3
  97. -- text size: 10
  98. -- style flags: 0
  99. -- line height: 13
  100. -- part name: Page Nos
  101.  
  102.  
  103. -- part 12 (button)
  104. -- low flags: 00
  105. -- high flags: 8003
  106. -- rect: left=442 top=219 right=240 bottom=488
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: Sort
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   answer "Sort all cards of this stack according to:" with "System" or "Subject" or "Cancel"
  118.   if it is "System"
  119.   then sort by first word of first line of field "System"
  120. else if it is "Subject"
  121. then sort by first word of first line of field "Subject"
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 13 (button)
  127. -- low flags: 00
  128. -- high flags: 8003
  129. -- rect: left=433 top=277 right=297 bottom=496
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Home
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   visual effect iris open
  141.   go Home
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 15 (button)
  147. -- low flags: 00
  148. -- high flags: 8003
  149. -- rect: left=424 top=108 right=129 bottom=505
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: New Entry
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   set lockScreen to true
  161.   go to last card
  162.   get field "number series"
  163.   doMenu "New Card"
  164.   set lockScreen to false
  165.   put it + 1 into field "number series"
  166.   choose browse tool
  167.   click at 100,100
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part 16 (field)
  173. -- low flags: 00
  174. -- high flags: 0004
  175. -- rect: left=128 top=80 right=97 bottom=236
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 0
  179. -- font id: 3
  180. -- text size: 10
  181. -- style flags: 0
  182. -- line height: 13
  183. -- part name: Magazine
  184.  
  185.  
  186. -- part 18 (field)
  187. -- low flags: 00
  188. -- high flags: 0004
  189. -- rect: left=320 top=80 right=97 bottom=411
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 0
  193. -- font id: 3
  194. -- text size: 10
  195. -- style flags: 0
  196. -- line height: 13
  197. -- part name: System
  198.  
  199.  
  200. -- part 19 (field)
  201. -- low flags: 00
  202. -- high flags: 4004
  203. -- rect: left=16 top=128 right=157 bottom=411
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 0
  207. -- font id: 3
  208. -- text size: 10
  209. -- style flags: 0
  210. -- line height: 13
  211. -- part name: Subject
  212.  
  213.  
  214. -- part 20 (field)
  215. -- low flags: 00
  216. -- high flags: 4004
  217. -- rect: left=16 top=180 right=275 bottom=411
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 0
  221. -- font id: 3
  222. -- text size: 10
  223. -- style flags: 0
  224. -- line height: 13
  225. -- part name: Summary
  226.  
  227.  
  228. -- part 21 (field)
  229. -- low flags: 00
  230. -- high flags: 0004
  231. -- rect: left=112 top=280 right=297 bottom=227
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 3
  236. -- text size: 10
  237. -- style flags: 0
  238. -- line height: 13
  239. -- part name: Issue
  240.  
  241.  
  242. -- part 22 (button)
  243. -- low flags: 00
  244. -- high flags: 8003
  245. -- rect: left=441 top=192 right=213 bottom=489
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: Find
  254. ----- HyperTalk script -----
  255. on mouseUp
  256.   global findInGlossary
  257.   put true into findInGlossary
  258.   doMenu "find..."
  259. end mouseUp
  260.  
  261.